home *** CD-ROM | disk | FTP | other *** search
/ Eagles Nest BBS 8 / Eagles_Nest_Mac_Collection_Disc_8.TOAST / Developer Tools⁄Additions / MacScheme20 / Mathlib / rarith.scm < prev    next >
Encoding:
Text File  |  1989-04-27  |  332 b   |  16 lines  |  [TEXT/????]
  1. ;;; $Header: rarith.scm,v 1.1 87/08/25 17:44:42 GMT gjs Exp $
  2. ;;; Dummy arithmetic file for real arithmetic
  3.  
  4. (define make-rational /)
  5.  
  6. (define conjugate (lambda (x) x))
  7.  
  8. (define magnitude abs)
  9.  
  10. (define angle (lambda (x) (if (negative? x) pi 0)))
  11.  
  12. (define log10
  13.   (let ((e^base (log 10)))
  14.     (lambda (z)
  15.       (/ (log z) e^base))))
  16.